#!/usr/bin/perl -w

use strict;
use Storable;

my $MAIL = retrieve("AmericanMail.rc");
$MAIL->{GETCH} = 0xFF;
$MAIL->{TO} = $MAIL->{FROM} = $MAIL->{BODY} = "\0";
store $MAIL, "AmericanMail.rc";

